function gp = gp_function( h )
% GP_FUNCTION
%   Esta funcion recibe como parámetro el valor de h correspondiente a un
%   determinado patrón, así como también un valor G indicando que función
%   de activación se utilizará. Devuelve el valor de g calculado y el valor
%   de g'
    global G;
    global BETA;

    if G == 1
        g = tanh(BETA*h);
        gp = BETA*(1-g.*g);
    elseif G == 2
        g = 1./(1 + exp(-2*BETA*h));
        gp = 2*BETA*g.*(1-g);
    end
end

